program testArrayComplex;

class testArrayComplex

BEGIN
   
VAR
   bad	   : ARRAY[0..9] OF testArrayComplex; 
   counter : integer;
   AA 	   : testArrayComplex;
FUNCTION testArrayComplex;
BEGIN
   bad[0] := new testArrayComplex;
   counter := 0;

   WHILE counter <= 9 DO
   BEGIN
      counter := counter + 1;
      print counter
   END;

   PRINT counter

END

END
.
